home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Map-hig.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-08  |  3.3 KB  |  129 lines
  1. on startMovie
  2.   global grollnumber, gleftedge, grightedge, gupedge, gdownedge, gKnobState, gKnobSprite
  3.   gKnobState = 2
  4.   gKnobSprite = 18
  5.   puppetSprite(48, 1)
  6.   gleftedge = 532
  7.   grightedge = 352
  8.   gupedge = 253
  9.   gdownedge = 223
  10.   grollnumber = 3
  11. end
  12.  
  13. on checkrolls
  14.   if rollOver(2) then
  15.     theCast = cast(the castNum of sprite 2).name
  16.     set the castNum of sprite 2 to the number of member (theCast & "1")
  17.     updateStage()
  18.     repeat while rollOver(2)
  19.       checkCursors()
  20.       set the locH of sprite 48 to the mouseH
  21.       set the locV of sprite 48 to the mouseV
  22.       updateStage()
  23.       if the mouseDown then
  24.         exit
  25.       end if
  26.     end repeat
  27.     set the castNum of sprite 2 to the number of member theCast
  28.     updateStage()
  29.   end if
  30. end
  31.  
  32. on myLeft
  33.   global gleftedge, grollnumber
  34.   channel = the clickOn
  35.   puppetSprite(channel, 1)
  36.   puppetSound("buttonSound")
  37.   theCast = cast(the castNum of sprite channel).name
  38.   set the castNum of sprite channel to the number of member (theCast & "B")
  39.   updateStage()
  40.   puppetSound(0)
  41.   repeat while the stillDown
  42.     if the locH of sprite 1 >= gleftedge then
  43.       exit repeat
  44.     end if
  45.     repeat with i = 1 to grollnumber
  46.       set the locH of sprite i to the locH of sprite i + 15
  47.     end repeat
  48.     updateStage()
  49.   end repeat
  50.   set the castNum of sprite channel to the number of member theCast
  51.   updateStage()
  52.   puppetSprite(channel, 0)
  53. end
  54.  
  55. on myRight
  56.   global grightedge, grollnumber
  57.   channel = the clickOn
  58.   puppetSprite(channel, 1)
  59.   puppetSound("buttonSound")
  60.   theCast = cast(the castNum of sprite channel).name
  61.   set the castNum of sprite channel to the number of member (theCast & "B")
  62.   updateStage()
  63.   puppetSound(0)
  64.   repeat while the stillDown
  65.     if the locH of sprite 1 <= grightedge then
  66.       exit repeat
  67.     end if
  68.     repeat with i = 1 to grollnumber
  69.       set the locH of sprite i to the locH of sprite i - 15
  70.     end repeat
  71.     updateStage()
  72.   end repeat
  73.   set the castNum of sprite channel to the number of member theCast
  74.   updateStage()
  75.   puppetSprite(channel, 0)
  76. end
  77.  
  78. on myUp
  79.   global gupedge, grollnumber
  80.   channel = the clickOn
  81.   puppetSprite(channel, 1)
  82.   puppetSound("buttonSound")
  83.   theCast = cast(the castNum of sprite channel).name
  84.   set the castNum of sprite channel to the number of member (theCast & "B")
  85.   updateStage()
  86.   puppetSound(0)
  87.   repeat while the stillDown
  88.     if the locV of sprite 1 >= gupedge then
  89.       exit repeat
  90.     end if
  91.     repeat with i = 1 to grollnumber
  92.       set the locV of sprite i to the locV of sprite i + 15
  93.     end repeat
  94.     updateStage()
  95.   end repeat
  96.   set the castNum of sprite channel to the number of member theCast
  97.   updateStage()
  98.   puppetSprite(channel, 0)
  99. end
  100.  
  101. on myDown
  102.   global gdownedge, grollnumber
  103.   channel = the clickOn
  104.   puppetSprite(channel, 1)
  105.   puppetSound("buttonSound")
  106.   theCast = cast(the castNum of sprite channel).name
  107.   set the castNum of sprite channel to the number of member (theCast & "B")
  108.   updateStage()
  109.   puppetSound(0)
  110.   repeat while the stillDown
  111.     if the locV of sprite 1 <= gdownedge then
  112.       exit repeat
  113.     end if
  114.     repeat with i = 1 to grollnumber
  115.       set the locV of sprite i to the locV of sprite i - 15
  116.     end repeat
  117.     updateStage()
  118.   end repeat
  119.   set the castNum of sprite channel to the number of member theCast
  120.   updateStage()
  121.   puppetSprite(channel, 0)
  122. end
  123.  
  124. on allSpritesOff
  125.   repeat with i = 1 to 48
  126.     puppetSprite(i, 0)
  127.   end repeat
  128. end
  129.